PC World Komputer 2000 July & August/EPA005.iso/Freeware/Genesis II terrain builder/_SETUP.1/Genesis2.exe/0/RCDATA/TFCAMERA/TFCAMERA.txt

Text File | 1999-10-16 | 6.5 KB | 302 lines

inherited FCamera: TFCamera
  Left = 384
  Top = 139
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Camera and Target Position Editor'
  ClientHeight = 521
  ClientWidth = 377
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 392
    Width = 377
    Height = 129
    Caption = 'Positioning'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 0
    object Label6: TLabel
      Left = 8
      Top = 104
      Width = 23
      Height = 13
      Hint = 'Change perspective'
      Caption = 'View'
    end
    object Label1: TLabel
      Left = 232
      Top = 16
      Width = 31
      Height = 13
      Hint = 'Set camera height'
      Caption = 'Height'
    end
    object Label2: TLabel
      Left = 48
      Top = 16
      Width = 7
      Height = 13
      Hint = 'Set target height'
      Caption = 'X'
    end
    object Label3: TLabel
      Left = 8
      Top = 40
      Width = 36
      Height = 13
      Caption = 'Camera'
    end
    object Label4: TLabel
      Left = 8
      Top = 64
      Width = 31
      Height = 13
      Caption = 'Target'
    end
    object Label5: TLabel
      Left = 144
      Top = 16
      Width = 7
      Height = 13
      Hint = 'Set target height'
      Caption = 'Y'
    end
    object Label7: TLabel
      Left = 144
      Top = 80
      Width = 42
      Height = 13
      Caption = 'Direction'
    end
    object BelowLabel: TLabel
      Left = 304
      Top = 24
      Width = 49
      Height = 39
      Caption = 'Camera is below surface'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
      WordWrap = True
    end
    object RecommendedLabel: TLabel
      Left = 304
      Top = 24
      Width = 70
      Height = 52
      Caption = 'Camera is below recommended level'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 33023
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
      WordWrap = True
    end
    object Label8: TLabel
      Left = 48
      Top = 80
      Width = 85
      Height = 13
      Caption = 'Perspective angle'
    end
    object Label9: TLabel
      Left = 232
      Top = 80
      Width = 37
      Height = 13
      Caption = 'Azimuth'
    end
    object Label10: TLabel
      Left = 304
      Top = 80
      Width = 42
      Height = 13
      Caption = 'Distance'
    end
    object TargetAlt: TSpinEdit
      Left = 232
      Top = 56
      Width = 65
      Height = 22
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 10000
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Value = 0
      OnChange = TargetAltChange
    end
    object ViewAlt: TSpinEdit
      Left = 232
      Top = 32
      Width = 65
      Height = 22
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 32000
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Value = 0
      OnChange = ViewAltChange
    end
    object PerspectiveSpinEdit: TSpinEdit
      Left = 48
      Top = 96
      Width = 57
      Height = 22
      Hint = 'angle in degrees'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Increment = 5
      MaxValue = 160
      MinValue = 1
      ParentFont = False
      TabOrder = 6
      Value = 5
      OnChange = PerspectiveSpinEditChange
    end
    object ViewDirectionEdit: TEdit
      Left = 144
      Top = 96
      Width = 65
      Height = 21
      ReadOnly = True
      TabOrder = 7
    end
    object CameraGeoRefXEdit: TFloatEdit
      Left = 48
      Top = 32
      Width = 89
      Height = 21
      TabOrder = 0
      Text = '0.0000'
      OnChange = CameraGeoRefChange
      OnKeyDown = GeoRefKeyDown
      OnKeyUp = GeoRefKeyUp
      Digits = 4
      Min = -99999999.900000000000000000
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object CameraGeoRefYEdit: TFloatEdit
      Left = 144
      Top = 32
      Width = 81
      Height = 21
      TabOrder = 1
      Text = '0.0000'
      OnChange = CameraGeoRefChange
      OnKeyDown = GeoRefKeyDown
      OnKeyUp = GeoRefKeyUp
      Digits = 4
      Min = -99999999.900000000000000000
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object TargetGeoRefXEdit: TFloatEdit
      Left = 48
      Top = 56
      Width = 89
      Height = 21
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
      Text = '0.0000'
      OnChange = TargetGeoRefEditChange
      OnKeyDown = GeoRefKeyDown
      OnKeyUp = GeoRefKeyUp
      Digits = 4
      Min = -99999999.900000000000000000
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object TargetGeoRefYEdit: TFloatEdit
      Left = 144
      Top = 56
      Width = 81
      Height = 21
      TabOrder = 4
      Text = '0.0000'
      OnChange = TargetGeoRefEditChange
      OnKeyDown = GeoRefKeyDown
      OnKeyUp = GeoRefKeyUp
      Digits = 4
      Min = -99999999.900000000000000000
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object ViewAzimuthEdit: TEdit
      Left = 232
      Top = 96
      Width = 65
      Height = 21
      ReadOnly = True
      TabOrder = 8
    end
    object ViewDistanceEdit: TEdit
      Left = 304
      Top = 96
      Width = 65
      Height = 21
      ReadOnly = True
      TabOrder = 9
    end
  end
  object PosBox: TGroupBox
    Left = 0
    Top = 0
    Width = 377
    Height = 393
    Caption = 'Positioning Map'
    TabOrder = 1
    object FlatImage: TFlatImage
      Left = 61
      Top = 73
      Width = 250
      Height = 250
      MinHeight = 0
      MaxHeight = 1000
      FixSide = 200
    end
    object LocPaintBox: TPaintBox
      Left = 2
      Top = 15
      Width = 373
      Height = 376
      Align = alClient
      ParentShowHint = False
      ShowHint = False
      OnMouseDown = LocPaintBoxMouseDown
      OnMouseMove = LocPaintBoxMouseMove
      OnMouseUp = LocPaintBoxMouseUp
      OnPaint = LocPaintBoxPaint
    end
  end
end